home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / netdmo.exe / CONSOLE.FRM < prev    next >
Text File  |  1993-12-10  |  3KB  |  118 lines
  1. Version 1.00
  2. BEGIN Form Console
  3.     AutoRedraw   = 0
  4.     BackColor    = QBColor(1)
  5.     BorderStyle  = 1
  6.     Caption      = "Send Console Message"
  7.     ControlBox   = -1
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(0)
  10.     Height       = Char(12)
  11.     Left         = Char(9)
  12.     MaxButton    = -1
  13.     MinButton    = -1
  14.     MousePointer = 0
  15.     Tag          = ""
  16.     Top          = Char(2)
  17.     Visible      = -1
  18.     Width        = Char(62)
  19.     WindowState  = 0
  20.     BEGIN TextBox msg1
  21.         BackColor    = QBColor(1)
  22.         BorderStyle  = 1
  23.         DragMode     = 0
  24.         Enabled      = -1
  25.         ForeColor    = QBColor(7)
  26.         Height       = Char(3)
  27.         Left         = Char(4)
  28.         MousePointer = 0
  29.         MultiLine    = 0
  30.         ScrollBars   = 0
  31.         TabIndex     = 0
  32.         TabStop      = -1
  33.         Tag          = ""
  34.         Text         = ""
  35.         Top          = Char(2)
  36.         Visible      = -1
  37.         Width        = Char(52)
  38.     END
  39.     BEGIN CommandButton SendButton
  40.         BackColor    = QBColor(7)
  41.         Cancel       = 0
  42.         Caption      = "Send"
  43.         Default      = 0
  44.         DragMode     = 0
  45.         Enabled      = -1
  46.         Height       = Char(3)
  47.         Left         = Char(10)
  48.         MousePointer = 0
  49.         TabIndex     = 1
  50.         TabStop      = -1
  51.         Tag          = ""
  52.         Top          = Char(6)
  53.         Visible      = -1
  54.         Width        = Char(15)
  55.     END
  56.     BEGIN CommandButton Exit1
  57.         BackColor    = QBColor(7)
  58.         Cancel       = 0
  59.         Caption      = "Exit"
  60.         Default      = 0
  61.         DragMode     = 0
  62.         Enabled      = -1
  63.         Height       = Char(3)
  64.         Left         = Char(34)
  65.         MousePointer = 0
  66.         TabIndex     = 2
  67.         TabStop      = -1
  68.         Tag          = ""
  69.         Top          = Char(6)
  70.         Visible      = -1
  71.         Width        = Char(14)
  72.     END
  73.     BEGIN Label Label1
  74.         Alignment    = 0
  75.         AutoSize     = 0
  76.         BackColor    = QBColor(1)
  77.         BorderStyle  = 0
  78.         Caption      = "Message To Send:"
  79.         DragMode     = 0
  80.         Enabled      = -1
  81.         ForeColor    = QBColor(15)
  82.         Height       = Char(1)
  83.         Left         = Char(4)
  84.         MousePointer = 0
  85.         TabIndex     = 3
  86.         Tag          = ""
  87.         Top          = Char(1)
  88.         Visible      = -1
  89.         Width        = Char(17)
  90.     END
  91. END
  92. '$FORM Netdemo
  93. TYPE SCMESS
  94.       ReturnCode AS INTEGER
  95.       Message AS STRING * 60
  96. END TYPE
  97. DECLARE SUB SendMsgToConsole (SendC AS SCMESS)
  98.  
  99. SUB Exit1_Click ()
  100. UNLOAD console
  101. Netdemo.SHOW
  102. END SUB
  103.  
  104. SUB SendButton_Click ()
  105. DIM SendC AS SCMESS
  106. SendC.Message = msg1.text
  107. CALL SendMsgToConsole(SendC)    'Call the Procedure
  108. IF SendC.ReturnCode = 0 THEN
  109.     msg$ = "Message Sent To Console"
  110.     MSGBOX msg$, 0, "Confirmed Message"
  111. ELSE
  112.     msg$ = "Message Not Sent"
  113.     MSGBOX msg$, 0, "Message Error"
  114. END IF
  115. msg1.text = ""
  116. END SUB
  117.  
  118.